home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tcl / demos / hello < prev    next >
Text File  |  1992-04-29  |  423b  |  13 lines
  1. #!/usr/local/wish -f
  2. # Simple Tk script to create a button that prints "Hello, world".
  3. # Click on the button to terminate the program.
  4. # 
  5. # The first line below creates the button, and the second line
  6. # arranges for packer to manage the button's geometry, centering
  7. # it in the application's main window.
  8.  
  9. button .hello -text "Hello, world" -command {
  10.     puts stdout "Hello, world"; destroy .
  11. }
  12. pack append . .hello {top}
  13.